home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue46 / construc / ServerU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-05-05  |  886 b   |  38 lines
  1. unit ServerU;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   ComServ, ComObj, VCLCom, StdVcl, BdeProv, DataBkr, DBClient, NestedSrv_TLB,
  6.   Provider, Db, DBTables;
  7.  
  8. type
  9.   TNestedDataModule = class(TRemoteDataModule, INestedDataModule)
  10.     Customer: TTable;
  11.     Orders: TTable;
  12.     dsCustomer: TDataSource;
  13.     CustomerOrders: TProvider;
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   protected
  19.     function Get_CustomerOrders: IProvider; safecall;
  20.   end;
  21.  
  22. var
  23.   NestedDataModule: TNestedDataModule;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. function TNestedDataModule.Get_CustomerOrders: IProvider;
  30. begin
  31.   Result := CustomerOrders.Provider;
  32. end;
  33.  
  34. initialization
  35.   TComponentFactory.Create(ComServer, TNestedDataModule,
  36.     Class_NestedDataModule, ciSingleInstance, tmApartment);
  37. end.
  38.